home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
551-575
/
disk_563
/
reqlibrary
/
reql.def
< prev
next >
Wrap
Text File
|
1992-05-06
|
3KB
|
95 lines
DEFINITION MODULE ReqL {"req.library",2};
IMPORT E: ExecD,
I: IntuitionD,
G: GraphicsD,
D: DosD,
S: SYSTEM,
r: ReqD,
R;
VAR reqVersion: INTEGER;
reqBase : r.ReqLibPtr;
CONST reqName = "req.library";
reqMinVersion = 2;
PROCEDURE Center(VAR nw{R.A0}: I.NewWindow;
x{R.D0},y{R.D1}:INTEGER);
CODE -30;
PROCEDURE SetSize(maxValue{R.D0},viewSize{R.D1}:LONGINT): INTEGER;
CODE -36;
PROCEDURE SetLocation(maxValue{R.D0},viewSize{R.D1},value{R.D2}:LONGINT): INTEGER;
CODE -42;
PROCEDURE ReadLocation(maxValue{R.D0},viewSize{R.D1}:LONGINT;potValue{R.D2}:INTEGER): LONGINT;
CODE -48;
PROCEDURE Format(buffer{R.A2},string{R.A0}: S.ADDRESS;VAR values{R.A1}:S.ADDRESS);
CODE -54; (* ehemals {R.A0}: ARRAY OF CHAR *)
PROCEDURE FileRequest(filereq{R.A0} :r.ReqFileRequesterPtr): BOOLEAN;
CODE -84;
PROCEDURE ColorRequester(desiredColor{R.D0}:LONGINT): LONGINT;
CODE -90;
PROCEDURE DrawBox(rp{R.A1}: G.RastPortPtr;minX{R.D0},minY{R.D1},maxX{R.D2},maxY{R.D3}:LONGINT);
CODE -96;
PROCEDURE MakeButton(buffer{R.A0}:r.TwoImageGadgetPtr;image{R.A1},image2{R.A2}:S.ADDRESS;width{R.D0},heigth{R.D1},depth{R.D2}:LONGINT);
CODE -102;
PROCEDURE MakeScrollBar(buffer{R.A0}:r.ScrollBlockPtr;flags{R.D0}:S.LONGSET;size{R.D1},x{R.D2},y{R.D3}:LONGINT);
CODE -108;
PROCEDURE PurgeFiles(filereq{R.A0}:r.ReqFileRequesterPtr);
CODE -114;
PROCEDURE MakeGadget(buffer{R.A0}:r.GadgetBlockPtr;string{R.A1}: S.ADDRESS;x{R.D0},y{R.D1}:LONGINT);
CODE -126; (* ehemals: {R.A1}: ARRAY OF CHAR *)
PROCEDURE MakeString(buffer{R.A0}:r.StringBlockPtr;stringbuff{R.A1},undobuff{R.A2}: S.ADDRESS;maxwidthbits{R.D0},maxnumchars{R.D1},x{R.D2},y{R.D3}:LONGINT);
CODE -132; (* ehemals: {R.A2}: ARRAY OF CHAR *)
PROCEDURE MakeProp(buffer{R.A0}:r.PropBlockPtr;width{R.D0},height{R.D1}:LONGINT;flags{R.D2}:S.LONGSET);
CODE -138;
PROCEDURE LinkGadget(buffer{R.A0}:r.GadgetBlockPtr;string{R.A1}:S.ADDRESS;VAR nw{R.A3}:I.NewWindow;x{R.D0},y{R.D1}:LONGINT);
CODE -144; (* ehemals: {R.A1}: ARRAY OF CHAR *)
PROCEDURE LinkStringGadget(buffer{R.A0}:r.StringBlockPtr;stringbuff{R.A1},undobuff{R.A2}:S.ADDRESS;VAR nw{R.A3}:I.NewWindow;widthbits{R.D0},
numchars{R.D1},x{R.D2},y{R.D3}:LONGINT);
CODE -150; (* ehemals: {R.A2}: ARRAY OF CHAR *)
PROCEDURE LinkPropGadget(buffer{R.A0}:r.PropBlockPtr;VAR nw{R.A3}:I.NewWindow;width{R.D0},height{R.D1}:LONGINT;flags{R.D2}:S.LONGSET;leftEdge{R.D3},topEdge{R.D4}:LONGINT);
CODE -156;
PROCEDURE GetString(buffer{R.A0}:S.ADDRESS;title{R.A1}:S.ADDRESS;window{R.A2}:I.WindowPtr;visibelchars{R.D0},maxchars{R.D1}:LONGINT):BOOLEAN;
CODE -162; (* ehemals: {R.A0},{R.A1}: ARRAY OF CHAR *)
PROCEDURE RealTimeScroll(scrollstruct{R.A0}:r.ReqScrollStructPtr);
CODE -168;
PROCEDURE TextRequest(trs{R.A0}:r.TRStructurePtr):INTEGER;
CODE -174;
PROCEDURE GetLong(gl{R.A0}:r.GetLongStructPtr):BOOLEAN;
CODE -180;
PROCEDURE RawKeyToAscii(code{R.D0},qualifier{R.D1}:INTEGER;iaddress{R.A0}: S.ADDRESS);
CODE -186;
PROCEDURE ExtendedColorRequest(extcolreq{R.A0}:r.ExtendedColorRequesterPtr):LONGINT;
CODE -192;
PROCEDURE NewGetString(ngetstr{R.A0}:r.GetStringStructPtr):BOOLEAN;
CODE -198;
END ReqL.